home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 16 Vendor Support / READER.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  44 lines
  1. 100 REM READER      JIM BUTTERFIELD
  2. 110 DATA 3085,8205,0
  3. 120 READ X
  4. 130 IF X=0 THEN PRINT "UNKNOWN SYSTEM!":END
  5. 140 X=X+0:IF PEEK(X)<>ASC("J") GOTO 120
  6. 150 X=X+1:IF PEEK(X)<>ASC("I") GOTO 120
  7. 160 X=X+1:IF PEEK(X)<>ASC("M") GOTO 120
  8. 170 X=X+1:IF PEEK(X)<>ASC(" ") GOTO 120
  9. 180 X=X+1:IF PEEK(X)<>ASC("B") GOTO 120
  10. 190 X=X+1
  11. 200 REM SYS TO THE CODE, WHEREVER
  12. 210 OPEN 15,8,15
  13. 220 OPEN 1,8,0,"$0:*=S"
  14. 230 GET#15,E,E$:IF E<>0 THEN PRINTE$:STOP
  15. 240 PRINTCHR$(14):SYS X
  16. 250 CLOSE 1
  17. 260 Z$=CHR$(PEEK(9728))
  18. 270 IF Z$="A" THEN PRINT "NO SEQUENTIAL FILES!":END
  19. 280 PRINT Z$;".< EXIT >"
  20. 290 PRINT "   .. PRESS KEY 'A' TO '";Z$;"' .."
  21. 300 GET A$:IF A$<"A" OR A$>Z$ GOTO 300
  22. 310 IF A$=Z$ THEN END
  23. 320 POKE 9728,ASC(A$):PRINT"[147][198]ILE 0:";
  24. 330 SYS X+127
  25. 340 PRINT "[208]RESS [Q] TO [209]UIT"
  26. 350 PRINT "[208]RESS [P] TO [208]RINT"
  27. 360 PRINT ".. ANY OTHER KEY TO DISPLAY."
  28. 370 PRINT CHR$(157);:POKE 9731,POS(0)+1:PRINT:PRINT
  29. 380 GET Z$,Z$,Z$,Z$
  30. 390 GET Z$
  31. 400 IF Z$="P" GOTO 600
  32. 410 IF Z$="Q" GOTO 700
  33. 420 IF Z$="" GOTO 390
  34. 430 SYS X+217
  35. 440 A$=" >> [205][207][210][197] - [Q] [212][207] [209][213][201][212]"
  36. 450 IF ST<>0 THEN A$=" >> [197]ND OF [196]OCUMENT <<"
  37. 460 PRINTA$;:GET Z$,Z$,Z$,Z$
  38. 470 GET Z$:IF Z$="" GOTO 470
  39. 480 FOR J=1 TO 22:PRINTCHR$(20);:NEXT J
  40. 490 IF Z$="Q" OR ST<>0 GOTO 700
  41. 500 GOTO 430
  42. 600 OPEN 4,4,7:SYS X+432:CLOSE 4
  43. 700 CLOSE 1:CLOSE 15:RUN
  44.